object FormMap: TFormMap
  Left = 231
  Top = 168
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSizeToolWin
  Caption = 'Cartographer'
  ClientHeight = 726
  ClientWidth = 1020
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000888880000000000000000000000
    0000444448800000000000000000000000004FFFF48000000000000000000000
    000004FFF48000000000000000000000000004FFF48000000000000000000000
    000004FFF48800000000000000000000000004FFFF4800000000000000000000
    0000004FFF48000000000000000000000000004FFF4880000000000000000000
    0000004FFFF48888800000000000000000000004FFF444448880000000000000
    00000004FFFFFFFF448888000000000000000004FFFFFFFFFF44488000000000
    000000004FFF4444FFFFF48880000000000000004FFF4CCC44FFFF4488000000
    000000004FFF4EEECC4FFFFF48800000000000004FFFF4FFEEC44FFFF4800000
    0000000004FFF480FFECC4FFF48800000000000004FFF48800FEC4FFFF480FF0
    0000000004FFFF48000FEC4FFF4800EFF000000004FFFF48000FEC4FFF48000E
    EFFFF000004444400FFFEC4FFF48000CCCEEEEFFFFFFFFFFFEEEC4FFFF480000
    44CCCCCEEEEEEEEEECCC4FFFFF4000000444444CCCCCCCCCC444FFFFF4000000
    004FFFF4444444444FFFFFFF4000000000044FFFFFFFFFFFFFFFFF4400000000
    00000444FFFFFFFFFFF444000000000000000000444444444440000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFF83FFFFFF01FFFFFF01FFFFFF81FFFFFF81FFFFFF80FFFFFF80FFFFFFC0
    FFFFFFC07FFFFFC007FFFFE001FFFFE0003FFFE0001FFFF00007FFF00003FFF0
    0001FFF00001FFF81000FFF80C009FF80E00C7F80E00E07C1800E0000000F000
    0001F8000003FC000007FE00000FFF80003FFFF001FFFFFFFFFFFFFFFFFF}
  Menu = MainMenu
  OldCreateOrder = True
  Scaled = False
  OnActivate = FormShow
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnMouseMove = FormMouseMove
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 14
  object PanelMain: TPanel
    Left = 0
    Top = 0
    Width = 1020
    Height = 707
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object PanelBase: TPanel
      Left = 0
      Top = 0
      Width = 1020
      Height = 707
      Align = alClient
      BevelInner = bvLowered
      BevelWidth = 3
      Color = clWhite
      TabOrder = 0
      object PanelRight: TPanel
        Left = 6
        Top = 6
        Width = 41
        Height = 695
        Align = alLeft
        BevelInner = bvLowered
        TabOrder = 0
        OnMouseMove = FormMouseMove
        object Bevel6: TBevel
          Left = 1
          Top = 53
          Width = 37
          Height = 6
          Shape = bsTopLine
          Style = bsRaised
        end
        object Bevel13: TBevel
          Left = 1
          Top = 165
          Width = 37
          Height = 6
          Shape = bsTopLine
          Style = bsRaised
        end
        object BtnSprint: TSpeedButton
          Left = 2
          Top = 55
          Width = 37
          Height = 18
          Hint = 'Sprint to a selected room'
          AllowAllUp = True
          Glyph.Data = {
            C6010000424DC6010000000000007600000028000000360000000C0000000100
            0400000000005001000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00787772787A72
            708A7770877777778F778F8F8F8F888F778877777700787772787A72707A7770
            7777777787FF8787878F8F8FFF8FFFF777007788872227AAA8000A7000877777
            78887888788888888F8888FF77007777787772887A2280AA8000777777778FFF
            888F88888888888777007777788882222AAAA000000777777777888888888888
            88888877FF0077777788872227AAA700087708777777F888F888F888F8888FF8
            8F00777787782772A77A0870088088077778F788FF88FF888F88888888007777
            87772887A22708870008770777787F7888F888F888F8888F7800777778778287
            2A27A08800087777777787F888F888F88888888FF70077777788882222AAAA00
            00000777777778888888888888888888F7007777777777788772277AA7800777
            777777777788F788F788F888F7007777777777788772277AA780077777777777
            77887788778878887700}
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = False
          OnClick = BtnSprintClick
          OnMouseMove = FormMouseMove
        end
        object ImageStubs: TImage
          Left = 2
          Top = 94
          Width = 19
          Height = 16
          Hint = 'Exit stub display (click to setup charting parameters)'
          ParentShowHint = False
          ShowHint = False
          OnClick = MenuParametersClick
          OnMouseMove = FormMouseMove
        end
        object BtnChart: TSpeedButton
          Tag = 1
          Left = 2
          Top = 75
          Width = 19
          Height = 17
          Hint = 'Charting mode on/off'
          AllowAllUp = True
          GroupIndex = 999
          Glyph.Data = {
            DE000000424DDE0000000000000076000000280000000F0000000D0000000100
            0400000000006800000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777000777
            7770777700BBB00777707770BB080BB07770770B333B033B077070B0773B0773
            B070733B073B073B00707773B03B03B0777077773B030B0777707707730B0077
            077033000000003300003B8BBBBBBBBB8B003303333333330330770777777777
            0770}
          ParentShowHint = False
          ShowHint = False
          OnClick = BtnChartClick
          OnMouseMove = FormMouseMove
        end
        object BtnFollow: TSpeedButton
          Tag = 2
          Left = 21
          Top = 75
          Width = 18
          Height = 17
          Hint = 'Following mode on/off'
          AllowAllUp = True
          GroupIndex = 999
          Glyph.Data = {
            DE000000424DDE0000000000000076000000280000000E0000000D0000000100
            0400000000006800000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777077000
            00007777700770FFF0007700000000FFF0007707700770FFF000770777077000
            0000000007777770770070007777770007007707777770000000000007707770
            77000FFF0770077077000FFF0000000077000FFF077007777700000007707777
            7700}
          ParentShowHint = False
          ShowHint = False
          OnClick = BtnChartClick
          OnMouseMove = FormMouseMove
        end
        object Bevel5: TBevel
          Left = 1
          Top = 110
          Width = 37
          Height = 6
          Shape = bsTopLine
          Style = bsRaised
        end
        object Bevel8: TBevel
          Left = 1
          Top = 73
          Width = 37
          Height = 6
          Shape = bsTopLine
          Style = bsRaised
        end
        object BtnHome: TSpeedButton
          Left = 2
          Top = 112
          Width = 19
          Height = 17
          Hint = 'Move to the home position'
          AllowAllUp = True
          Glyph.Data = {
            CE000000424DCE0000000000000076000000280000000B0000000B0000000100
            0400000000005800000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000070
            000070EEEE00E070000070E00E00E070000070E00E00E070000070EEEEEEE070
            0000000000000000000070666666607000007706666607700000777066607770
            000077770607777000007777707777700000}
          ParentShowHint = False
          ShowHint = False
          OnClick = BtnCClick
          OnMouseMove = FormMouseMove
        end
        object BtnSethome: TSpeedButton
          Left = 21
          Top = 112
          Width = 18
          Height = 17
          Hint = 'Set the home position'
          AllowAllUp = True
          Glyph.Data = {
            CE000000424DCE0000000000000076000000280000000E0000000B0000000100
            0400000000005800000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777708777
            7700777777F0F77777007777780808F77700777780707087770077780F70F70F
            8700770080000080070077770F70770F7700777780F0F0877700777778080877
            770077777770877777007777777077777700}
          ParentShowHint = False
          ShowHint = False
          OnClick = BtnSetHomeClick
          OnMouseMove = FormMouseMove
        end
        object BtnZoomIn: TSpeedButton
          Tag = 1
          Left = 2
          Top = 129
          Width = 19
          Height = 17
          Hint = 'Zoom in'
          AllowAllUp = True
          Glyph.Data = {
            CE000000424DCE0000000000000076000000280000000B0000000B0000000100
            0400000000005800000000000000000000001000000010000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00878888888880
            00000078888888800000800770007880000088000FFF008000008880FF0FF070
            0000880FFF0FFF000000880F00000F000000880FFF0FFF0000008880FF0FF080
            000088800FFF008000008888800088800000}
          ParentShowHint = False
          ShowHint = False
          OnClick = MenuZoomInClick
          OnMouseMove = FormMouseMove
        end
        object BtnZoomOut: TSpeedButton
          Tag = 2
          Left = 21
          Top = 129
          Width = 18
          Height = 17
          Hint = 'Zoom out'
          AllowAllUp = True
          Glyph.Data = {
            CE000000424DCE0000000000000076000000280000000B0000000B0000000100
            0400000000005800000000000000000000001000000010000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00878888888880
            00000078888888800000800770007880000088000FFF008000008880FFFFF070
            0000880FFFFFFF000000880F00000F000000880FFFFFFF0000008880FFFFF080
            000088800FFF008000008888800088800000}
          ParentShowHint = False
          ShowHint = False
          OnClick = MenuZoomInClick
          OnMouseMove = FormMouseMove
        end
        object BtnX4: TSpeedButton
          Left = 2
          Top = 40
          Width = 19
          Height = 13
          Hint = 'If this button is down, the above buttons will move 4 clicks'
          AllowAllUp = True
          GroupIndex = 3
          Caption = 'x4'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
          OnMouseMove = FormMouseMove
        end
        object BtnX8: TSpeedButton
          Left = 21
          Top = 40
          Width = 18
          Height = 13
          Hint = 'If this button is down, the above buttons will move 8 clicks'
          AllowAllUp = True
          GroupIndex = 3
          Caption = 'x8'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
          OnMouseMove = FormMouseMove
        end
        object BtnNewMap: TSpeedButton
          Left = 2
          Top = 167
          Width = 19
          Height = 17
          Hint = 'New map level'
          AllowAllUp = True
          Glyph.Data = {
            D6000000424DD60000000000000076000000280000000C0000000C0000000100
            0400000000006000000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
            00000000000000DD00000777777770DD00000F7F7F7F70DD00000777777770DD
            00000F7F7F7F70DD00000777777770DD00000F7F7F7F70DD00000777777770DD
            00000F7F7F7F70DD00000000000000DD0000DDDDDDDDDDDD0000}
          ParentShowHint = False
          ShowHint = False
          OnClick = MenuNewMapClick
          OnMouseMove = FormMouseMove
        end
        object BtnPrint: TSpeedButton
          Left = 21
          Top = 167
          Width = 18
          Height = 17
          Hint = 'Print map level'
          AllowAllUp = True
          Glyph.Data = {
            D6000000424DD60000000000000076000000280000000B0000000C0000000100
            0400000000006000000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDD0
            0000D00000000DD000000888888880D000000800090A80D000000888888880D0
            0000D00000000DD00000DD077770DDD00000DD0F7F70DDD00000DD077770DDD0
            0000DD0F7F70DDD00000DD00000DDDD00000DDDDDDDDDDD00000}
          ParentShowHint = False
          ShowHint = False
          OnClick = BtnPrintClick
          OnMouseMove = FormMouseMove
        end
        object BtnHighlight: TSpeedButton
          Left = 2
          Top = 184
          Width = 19
          Height = 17
          Hint = 'Momentarily highlight rooms that have exit stubs'
          AllowAllUp = True
          Glyph.Data = {
            D6000000424DD60000000000000076000000280000000C0000000C0000000100
            0400000000006000000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
            0000DEEEEEEEDDDD0000E0000000EDDD0000E0FFFFF0EDDD0000E0FFFFF0EEDD
            0000E0FFFFF000ED0000E0FFFFF0EEDD0000E0FFFFF0EDDD0000E0000000EDDD
            0000DEEE0EEEDDDD0000DDDE0EDDDDDD0000DDDDEDDDDDDD0000}
          ParentShowHint = False
          ShowHint = False
          OnClick = MenuHighlightClick
          OnMouseMove = FormMouseMove
        end
        object BtnAutocomplete: TSpeedButton
          Left = 21
          Top = 184
          Width = 18
          Height = 17
          Hint = 'Auto-complete map stubs'
          AllowAllUp = True
          Glyph.Data = {
            D6000000424DD60000000000000076000000280000000C0000000C0000000100
            0400000000006000000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDD00000DDDD
            0000D0D0FFF0D0DD0000D0D0FFF0D00D0000D0D0FFF0D00D0000D0D00000D00D
            0000D0DDD0DDD0DD0000D0DDD0DDD0DD000000D00000D0DD000000D0FFF0D0DD
            000000D0FFF0D0DD0000D0D0FFF0D0DD0000DDD00000DDDD0000}
          ParentShowHint = False
          ShowHint = False
          OnClick = MenuCompleteStubsClick
          OnMouseMove = FormMouseMove
        end
        object Bevel1: TBevel
          Left = 1
          Top = 92
          Width = 37
          Height = 6
          Shape = bsTopLine
          Style = bsRaised
        end
        object BtnAttic: TSpeedButton
          Tag = -1
          Left = 2
          Top = 148
          Width = 19
          Height = 17
          Hint = 'Switch to this map level'#39's attic'
          AllowAllUp = True
          Enabled = False
          Glyph.Data = {
            FA000000424DFA000000000000007600000028000000160000000B0000000100
            0400000000008400000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777999997777
            777FFFFF7700777111117777778888877700777999997777777FFFFF77007771
            11117777778888877700777999997777FFFFFFFFFF0011111111111888888888
            880071999999917787F777778700771999991777787F77787700777199917777
            7787F7877700777719177777777878777700777771777777777787777700}
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = False
          OnClick = BtnAtticClick
          OnMouseMove = FormMouseMove
        end
        object BtnBasement: TSpeedButton
          Tag = 1
          Left = 21
          Top = 148
          Width = 18
          Height = 17
          Hint = 'Switch to this map level'#39's basement'
          AllowAllUp = True
          Enabled = False
          Glyph.Data = {
            FA000000424DFA000000000000007600000028000000160000000B0000000100
            0400000000008400000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777772777777
            777787F7770077772A2777777778787F77007772AAA2777777877787F700772A
            AAAA2777787777787F0072AAAAAAA2778FFFFFFF870022222222222888888888
            8800777AAAAA7777777FFFFF7700777222227777778888877700777AAAAA7777
            777FFFFF7700777222227777778888877700777AAAAA7777777777777700}
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = False
          OnClick = BtnAtticClick
          OnMouseMove = FormMouseMove
        end
        object Bevel3: TBevel
          Left = 1
          Top = 146
          Width = 37
          Height = 6
          Shape = bsTopLine
          Style = bsRaised
        end
        object LabelClock: TStaticText
          Left = 21
          Top = 94
          Width = 18
          Height = 16
          Hint = 'Charting failure countdown (click to setup charting parameters)'
          AutoSize = False
          Caption = '99'
          Color = clBlack
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentColor = False
          ParentFont = False
          TabOrder = 10
          OnClick = MenuParametersClick
          OnMouseMove = FormMouseMove
        end
        object PanelToolbar: TPanel
          Left = 2
          Top = 202
          Width = 37
          Height = 210
          BevelInner = bvRaised
          BevelOuter = bvLowered
          TabOrder = 0
          OnMouseMove = FormMouseMove
          object fr0: TSpeedButton
            Left = 3
            Top = 22
            Width = 16
            Height = 15
            Hint = 'Room style blank'
            GroupIndex = 1
            Down = True
            Glyph.Data = {
              D6000000424DD60000000000000076000000280000000C0000000C0000000100
              0400000000006000000000000000000000001000000010000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
              00008877777777780000800000000078000080FFFFFFF078000080FFFFFFF078
              000080FFFFFFF078000080FFFFFFF078000080FFFFFFF078000080FFFFFFF078
              000080FFFFFFF078000080000000008800008888888888880000}
            ParentShowHint = False
            ShowHint = False
            OnClick = fr0Click
            OnMouseMove = FormMouseMove
          end
          object fr1: TSpeedButton
            Left = 3
            Top = 37
            Width = 16
            Height = 15
            Hint = 'Room style up arrow'
            GroupIndex = 1
            Glyph.Data = {
              D6000000424DD60000000000000076000000280000000C0000000C0000000100
              0400000000006000000000000000000000001000000010000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
              00008877777777780000800000000078000080FFFFFFF078000080FFF0FFF078
              000080FFF0FFF078000080F00000F078000080FF000FF078000080FFF0FFF078
              000080FFFFFFF078000080000000008800008888888888880000}
            ParentShowHint = False
            ShowHint = False
            OnClick = fr0Click
            OnMouseMove = FormMouseMove
          end
          object fr2: TSpeedButton
            Left = 19
            Top = 37
            Width = 16
            Height = 15
            Hint = 'Room style down arrow'
            GroupIndex = 1
            Glyph.Data = {
              D6000000424DD60000000000000076000000280000000C0000000C0000000100
              0400000000006000000000000000000000001000000010000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
              00008877777777780000800000000078000080FFFFFFF078000080FFF0FFF078
              000080FF000FF078000080F00000F078000080FFF0FFF078000080FFF0FFF078
              000080FFFFFFF078000080000000008800008888888888880000}
            ParentShowHint = False
            ShowHint = False
            OnClick = fr0Click
            OnMouseMove = FormMouseMove
          end
          object fr3: TSpeedButton
            Left = 19
            Top = 22
            Width = 16
            Height = 15
            Hint = 'Room style up && down arrow'
            GroupIndex = 1
            Glyph.Data = {
              D6000000424DD60000000000000076000000280000000C0000000C0000000100
              0400000000006000000000000000000000001000000010000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
              00008877777777780000800000000078000080FFF0FFF078000080FF000FF078
              000080F00000F078000080FFF0FFF078000080F00000F078000080FF000FF078
              000080FFF0FFF078000080000000008800008888888888880000}
            ParentShowHint = False
            ShowHint = False
            OnClick = fr0Click
            OnMouseMove = FormMouseMove
          end
          object fr4: TSpeedButton
            Left = 3
            Top = 52
            Width = 16
            Height = 15
            Hint = 'Room style star'
            GroupIndex = 1
            Glyph.Data = {
              D6000000424DD60000000000000076000000280000000C0000000C0000000100
              0400000000006000000000000000000000001000000010000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
              00008877777777780000800000000078000080FFF7FFF078000080F0F0F0F078
              000080FF070FF0780000807070707078000080FF070FF078000080F0F0F0F078
              000080FFF7FFF078000080000000008800008888888888880000}
            ParentShowHint = False
            ShowHint = False
            OnClick = fr0Click
            OnMouseMove = FormMouseMove
          end
          object fr5: TSpeedButton
            Left = 19
            Top = 52
            Width = 16
            Height = 15
            Hint = 'Room style circle'
            GroupIndex = 1
            Glyph.Data = {
              D6000000424DD60000000000000076000000280000000C0000000C0000000100
              0400000000006000000000000000000000001000000010000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
              00008877777777780000800000000078000080FFFFFFF078000080FF000FF078
              000080F00000F078000080F00000F078000080F00000F078000080FF000FF078
              000080FFFFFFF078000080000000008800008888888888880000}
            ParentShowHint = False
            ShowHint = False
            OnClick = fr0Click
            OnMouseMove = FormMouseMove
          end
          object Bevel4: TBevel
            Left = 1
            Top = 19
            Width = 35
            Height = 6
            Shape = bsTopLine
            Style = bsRaised
          end
          object BtnEdit: TSpeedButton
            Left = 2
            Top = 2
            Width = 33
            Height = 17
            Hint = 'Toggles mouse-editing of the map [down=on  up=off]'
            AllowAllUp = True
            GroupIndex = 567
            Glyph.Data = {
              36010000424D360100000000000076000000280000001B0000000C0000000100
              040000000000C000000000000000000000001000000010000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
              DDDDDDDDDDDDDDD00000D0000000000000000DDDDDDDDDD00000D08888888888
              88880DDDDDDDDDD00000D0F8F8F8F8F000000DDDDDDDDDD00000D08888888888
              08B300DDDDDDDDD00000D0F8F8F8F8F8F00BB300DDDDDDD00000D08888888888
              88800BB300DDDDD00000D0F8F8F8F8F8F8F8000BB300DDD00000D08888888888
              88880DD00BB700D00000D0F8F8F8F8F8F8F80DDDD00190D00000D00000000000
              00000DDDDDD00DD00000DDDDDDDDDDDDDDDDDDDDDDDDDDD00000}
            ParentShowHint = False
            ShowHint = False
            OnClick = BtnEditClick
            OnMouseMove = FormMouseMove
          end
          object ColorGrid: TColorGrid
            Left = 3
            Top = 69
            Width = 32
            Height = 112
            Hint = 
              'Color in which to add a room/link.  Left click: Foreground  Righ' +
              't click: Background'
            Ctl3D = True
            GridOrdering = go2x8
            BackgroundIndex = 15
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -8
            Font.Name = 'Arial'
            Font.Style = [fsBold]
            ParentCtl3D = False
            ParentFont = False
            ParentShowHint = False
            ShowHint = False
            TabOrder = 0
            OnClick = fr0Click
            OnMouseMove = FormMouseMove
          end
          object PanelExample: TPanel
            Left = 3
            Top = 182
            Width = 30
            Height = 24
            Hint = 'Room/link example with given options'
            BevelOuter = bvLowered
            Color = clWhite
            TabOrder = 1
            OnMouseMove = FormMouseMove
            object ShapeLink: TShape
              Left = 20
              Top = 10
              Width = 10
              Height = 3
              Hint = 'Room/link example with given options'
              Pen.Width = 3
              OnMouseMove = FormMouseMove
            end
            object ShapeRoom: TShape
              Left = 3
              Top = 3
              Width = 18
              Height = 18
              Hint = 'Room/link example with given options'
              Pen.Width = 3
              OnMouseMove = FormMouseMove
            end
            object ImageStyle: TImage
              Left = 6
              Top = 6
              Width = 12
              Height = 12
              Hint = 'Room/link example with given options'
              Visible = False
              OnMouseMove = FormMouseMove
            end
          end
        end
        object BtnN: TShapedButton
          Tag = 1
          Left = 2
          Top = 2
          Width = 37
          Height = 37
          Hint = 'Move north'
          Glyph.Data = {
            AE000000424DAE0000000000000076000000280000000A000000070000000100
            0400000000003800000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777000077700
            00007000EE00070000000EEE66EEE000000070E6666E07000000770E66E07700
            00007770EE07770000007777007777000000}
          Style = bsWin31
          TabOrder = 1
          OnClick = BtnCClick
          OnMouseMove = FormMouseMove
          Points.Strings = (
            '15,0'
            '21,0'
            '28,7'
            '18,17'
            '8,7')
          OffsetX = 0
          OffsetY = -10
        end
        object BtnE: TShapedButton
          Tag = 2
          Left = 2
          Top = 2
          Width = 37
          Height = 37
          Hint = 'Move east'
          Glyph.Data = {
            9E000000424D9E000000000000007600000028000000070000000A0000000100
            0400000000002800000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF007707777070E0
            777070EE077000E6E0700E666E000E666E0000E6E07070EE077070E077707707
            7770}
          Style = bsWin31
          TabOrder = 2
          OnClick = BtnCClick
          OnMouseMove = FormMouseMove
          Points.Strings = (
            '29,8'
            '36,15'
            '36,21'
            '29,28'
            '19,18')
          OffsetX = 10
          OffsetY = 0
        end
        object BtnS: TShapedButton
          Tag = 3
          Left = 2
          Top = 2
          Width = 37
          Height = 37
          Hint = 'Move south'
          Glyph.Data = {
            AE000000424DAE0000000000000076000000280000000A000000070000000100
            0400000000003800000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777700777700
            00007770EE0777000000770E66E07700000070E6666E070000000EEE66EEE000
            00007000EE00070000007770000777000000}
          Margin = 0
          Style = bsWin31
          TabOrder = 3
          OnClick = BtnCClick
          OnMouseMove = FormMouseMove
          Points.Strings = (
            '8,29'
            '18,19'
            '28,29'
            '20,37'
            '16,37')
          OffsetX = 11
          OffsetY = 11
        end
        object BtnW: TShapedButton
          Tag = 4
          Left = 2
          Top = 2
          Width = 37
          Height = 37
          Hint = 'Move west'
          Glyph.Data = {
            9E000000424D9E000000000000007600000028000000070000000A0000000100
            0400000000002800000000000000000000001000000010000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777707707770
            E070770EE07070E6E0000E666E000E666E0070E6E000770EE0707770E0707777
            0770}
          Style = bsWin31
          TabOrder = 4
          OnClick = BtnCClick
          OnMouseMove = FormMouseMove
          Points.Strings = (
            '0,15'
            '7,8'
            '17,18'
            '7,28'
            '0,21')
          OffsetX = -10
          OffsetY = 0
        end
        object PanelSelection: TPanel
          Left = 2
          Top = 417
          Width = 38
          Height = 144
          BevelInner = bvRaised
          BevelOuter = bvLowered
          TabOrder = 5
          Visible = False
          OnMouseMove = FormMouseMove
          object BtnSelectionE: TBitBtn
            Tag = 6
            Left = 3
            Top = 26
            Width = 32
            Height = 23
            Hint = 'Move selected room(s) right'
            Glyph.Data = {
              42010000424D4201000000000000760000002800000011000000110000000100
              040000000000CC00000000000000000000001000000010000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888887788
              8888800000008888888007788888800000008888878060778888800000008888
              07806607788880000000887807806660778880000000807807806E6607788000
              0000807807806EE6607780000000807807806EEE660770000000807807806EEE
              E66080000000807807806EEE660880000000807807806EE66088800000008088
              07806E6608888000000088880780666088888000000088880880660888888000
              0000888888806088888880000000888888800888888880000000888888888888
              888880000000}
            ParentShowHint = False
            ShowHint = True
            TabOrder = 3
            TabStop = False
            OnClick = BtnSelectionNClick
            OnMouseMove = FormMouseMove
          end
          object BtnSelectionN: TBitBtn
            Tag = 8
            Left = 3
            Top = 3
            Width = 32
            Height = 23
            Hint = 'Move selected room(s) up'
            Glyph.Data = {
              42010000424D4201000000000000760000002800000011000000110000000100
              040000000000CC00000000000000000000001000000010000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888777777
              7888800000008888800000008888800000008888888888888888800000008888
              7777777777788000000088800000000000888000000088888888888888888000
              0000887777777777777770000000800000000000000070000000806666666666
              66608000000088066EEEEEEE660880000000888066EEEEE66088800000008888
              066EEE6608888000000088888066E66088888000000088888806660888888000
              0000888888806088888880000000888888880888888880000000888888888888
              888880000000}
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            TabStop = False
            OnClick = BtnSelectionNClick
            OnMouseMove = FormMouseMove
          end
          object BtnSelectionW: TBitBtn
            Tag = 4
            Left = 3
            Top = 72
            Width = 32
            Height = 23
            Hint = 'Move selected room(s) left'
            Glyph.Data = {
              42010000424D4201000000000000760000002800000011000000110000000100
              040000000000CC00000000000000000000001000000010000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888887788
              8888800000008888888007888888800000008888880607887888800000008888
              80660780788780000000888806660780780780000000888066E6078078078000
              000088066EE607807807800000008066EEE60780780780000000066EEEE60780
              7807800000008066EEE6078078078000000088066EE607807807800000008880
              66E6078078088000000088880666078078888000000088888066078088888000
              0000888888060788888880000000888888800888888880000000888888888888
              888880000000}
            ParentShowHint = False
            ShowHint = True
            TabOrder = 2
            TabStop = False
            OnClick = BtnSelectionNClick
            OnMouseMove = FormMouseMove
          end
          object BtnSelectionS: TBitBtn
            Tag = 2
            Left = 3
            Top = 49
            Width = 32
            Height = 23
            Hint = 'Move selected room(s) down'
            Glyph.Data = {
              42010000424D4201000000000000760000002800000011000000110000000100
              040000000000CC00000000000000000000001000000010000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888788
              8888800000008888888807788888800000008888888060778888800000008888
              8806660778888000000088888066E6607788800000008888066EEE6607788000
              0000888066EEEEE660778000000088066EEEEEEE660770000000806666666666
              6660700000008000000000000000800000008888888888888888800000008888
              7777777777788000000088800000000000888000000088888888888888888000
              0000888888777777788880000000888880000000888880000000888888888888
              888880000000}
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            TabStop = False
            OnClick = BtnSelectionNClick
            OnMouseMove = FormMouseMove
          end
          object BtnSelectionProperties: TBitBtn
            Tag = 8
            Left = 3
            Top = 95
            Width = 32
            Height = 23
            Hint = 'Assign properties to all selected rooms'
            Glyph.Data = {
              42010000424D4201000000000000760000002800000011000000110000000100
              040000000000CC00000000000000000000001000000010000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
              888880000000888000888000000000000000800BBB0080CCCCCC0000000080BB
              BBB080CCCCCC000000000BBBBBBB00CCCCCC000000000BBBBBBB00CCCCCC0000
              000080BBBBB080CCCCCC00000000800BBB0080CCCCCC00000000888000000000
              0000000000008888099999908888800000008888809999088888800000008888
              8099990888888000000088888809908888888000000088888809908888888000
              0000888888800888888880000000888888800888888880000000888888888888
              888880000000}
            ParentShowHint = False
            ShowHint = True
            TabOrder = 4
            TabStop = False
            OnClick = MenuSelectionPropertiesClick
            OnMouseMove = FormMouseMove
          end
          object BtnDeselect: TBitBtn
            Tag = 4
            Left = 3
            Top = 118
            Width = 32
            Height = 23
            Hint = 'Deselect rooms'
            Glyph.Data = {
              F6000000424DF60000000000000076000000280000000C000000100000000100
              0400000000008000000000000000000000001000000010000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
              000008888888888800008066666666660000800666666666000080F066666666
              000080F0FFFFF666000080FF0FFFF666000080FFF0FFF666000080FFFF0FF666
              000080FFFFF0F666000080FFFFFF0666000080FFFFFF06660000800000000006
              0000888888888806000088888888888000008888888888880000}
            ParentShowHint = False
            ShowHint = True
            TabOrder = 5
            TabStop = False
            OnClick = MenuClearSelectionsClick
            OnMouseMove = FormMouseMove
          end
        end
        object BtnNW: TShapedButton
          Tag = 8
          Left = 2
          Top = 2
          Width = 13
          Height = 13
          Hint = 'Move northwest'
          TabOrder = 6
          OnClick = BtnCClick
          OnMouseMove = FormMouseMove
          Points.Strings = (
            '0,0'
            '13,0'
            '0,13')
          OffsetX = 0
          OffsetY = 0
        end
        object BtnNE: TShapedButton
          Tag = 5
          Left = 25
          Top = 2
          Width = 14
          Height = 13
          Hint = 'Move northeast'
          TabOrder = 7
          OnClick = BtnCClick
          OnMouseMove = FormMouseMove
          Points.Strings = (
            '0,0'
            '13,0'
            '13,13')
          OffsetX = 0
          OffsetY = 0
        end
        object BtnSE: TShapedButton
          Tag = 6
          Left = 24
          Top = 25
          Width = 15
          Height = 14
          Hint = 'Move southeast'
          TabOrder = 8
          OnClick = BtnCClick
          OnMouseMove = FormMouseMove
          Points.Strings = (
            '14,0'
            '14,14'
            '0,14')
          OffsetX = 0
          OffsetY = 0
        end
        object BtnSW: TShapedButton
          Tag = 7
          Left = 2
          Top = 25
          Width = 14
          Height = 14
          Hint = 'Move southwest'
          TabOrder = 9
          OnClick = BtnCClick
          OnMouseMove = FormMouseMove
          Points.Strings = (
            '0,0'
            '14,14'
            '0,14')
          OffsetX = 0
          OffsetY = 0
        end
      end
      object PanelBaseLeft: TPanel
        Left = 47
        Top = 6
        Width = 967
        Height = 695
        Align = alClient
        BevelOuter = bvNone
        Color = clWhite
        TabOrder = 1
        object MapCanvas: TImage
          Left = 19
          Top = 41
          Width = 948
          Height = 654
          Hint = 
            'Add room: [left click]  Create link: [left click/drag/unclick]  ' +
            'Extra options: [right click]'
          Align = alClient
          PopupMenu = PopupMenu
          OnMouseDown = MapCanvasMouseDown
          OnMouseMove = MapCanvasMouseMove
          OnMouseUp = MapCanvasMouseUp
          ExplicitLeft = 23
        end
        object Style1: TImage
          Left = 58
          Top = 47
          Width = 12
          Height = 12
          Picture.Data = {
            07544269746D6170D6000000424DD60000000000000076000000280000000C00
            00000C0000000100040000000000600000000000000000000000100000001000
            0000000000000000800000800000008080008000000080008000808000008080
            8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
            FF00FFFFFFFFFFFF0000FFFFF00FFFFF0000FFFFF00FFFFF0000FFFFF00FFFFF
            0000FFFFF00FFFFF0000FFFFF00FFFFF0000FFFFF00FFFFF0000FF00000000FF
            0000FFF000000FFF0000FFFF0000FFFF0000FFFFF00FFFFF0000FFFFFFFFFFFF
            0000}
          Visible = False
        end
        object Style2: TImage
          Left = 74
          Top = 47
          Width = 12
          Height = 12
          Picture.Data = {
            07544269746D6170D6000000424DD60000000000000076000000280000000C00
            00000C0000000100040000000000600000000000000000000000100000001000
            0000000000000000800000800000008080008000000080008000808000008080
            8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
            FF00FFFFFFFFFFFF0000FFFFF00FFFFF0000FFFF0000FFFF0000FFF000000FFF
            0000FF00000000FF0000FFFFF00FFFFF0000FFFFF00FFFFF0000FFFFF00FFFFF
            0000FFFFF00FFFFF0000FFFFF00FFFFF0000FFFFF00FFFFF0000FFFFFFFFFFFF
            0000}
          Visible = False
        end
        object Style3: TImage
          Left = 90
          Top = 47
          Width = 12
          Height = 12
          Picture.Data = {
            07544269746D6170D6000000424DD60000000000000076000000280000000C00
            00000C0000000100040000000000600000000000000000000000100000001000
            0000000000000000800000800000008080008000000080008000808000008080
            8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
            FF00FFFFFFFFFFFF0000FFFFF00FFFFF0000FFFF0000FFFF0000FFF000000FFF
            0000FF00000000FF0000FFFFF00FFFFF0000FFFFF00FFFFF0000FF00000000FF
            0000FFF000000FFF0000FFFF0000FFFF0000FFFFF00FFFFF0000FFFFFFFFFFFF
            0000}
          Visible = False
        end
        object Style4: TImage
          Left = 106
          Top = 47
          Width = 12
          Height = 12
          Picture.Data = {
            07544269746D6170D6000000424DD60000000000000076000000280000000C00
            00000C0000000100040000000000600000000000000000000000100000001000
            0000000000000000800000800000008080008000000080008000808000008080
            8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
            FF00FFFFFFFFFFFF0000FFFFFF0FFFFF0000FFF0FF0FFFFF0000FFFF0F0FF0FF
            0000FFFFF00F0FFF0000F0000000FFFF0000FFFF0000000F0000FFF0F00FFFFF
            0000FF0FF0F0FFFF0000FFFFF0FF0FFF0000FFFFF0FFFFFF0000FFFFFFFFFFFF
            0000}
          Visible = False
        end
        object Style5: TImage
          Left = 122
          Top = 47
          Width = 12
          Height = 12
          Picture.Data = {
            07544269746D6170D6000000424DD60000000000000076000000280000000C00
            00000C0000000100040000000000600000000000000000000000100000001000
            0000000000000000800000800000008080008000000080008000808000008080
            8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
            FF00FFFFFFFFFFFF0000FFFFF00FFFFF0000FFF000000FFF0000FF00000000FF
            0000FF00000000FF0000F0000000000F0000F0000000000F0000FF00000000FF
            0000FF00000000FF0000FFF000000FFF0000FFFFF00FFFFF0000FFFFFFFFFFFF
            0000}
          Visible = False
        end
        object PanelLeft: TPanel
          Left = 0
          Top = 41
          Width = 19
          Height = 654
          Align = alLeft
          BevelOuter = bvNone
          Color = clSilver
          TabOrder = 0
          object Ruler2: TImage
            Left = 0
            Top = 0
            Width = 19
            Height = 654
            Hint = 'The Y-axis runs vertically with moving down to up being positive'
            Align = alClient
            OnMouseDown = MapCanvasMouseDown
            OnMouseMove = FormMouseMove
            OnMouseUp = MapCanvasMouseUp
          end
          object Ruler2Pointer: TImage
            Left = 1
            Top = 5
            Width = 16
            Height = 11
            Picture.Data = {
              07544269746D6170CE000000424DCE0000000000000076000000280000001000
              00000B0000000100040000000000580000000000000000000000100000001000
              000000000000000080000080000000808000800000008000800080800000C0C0
              C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
              FF00700007777777777777022007777777777770222007777777777700222000
              7777777770002222000777777700002222207777700022220007777700222000
              7777777022200777777777022007777777777000077777777777}
            Visible = False
          end
          object Ruler2Pointer2: TImage
            Left = 1
            Top = 19
            Width = 16
            Height = 11
            Picture.Data = {
              07544269746D6170CE000000424DCE0000000000000076000000280000001000
              00000B0000000100040000000000580000000000000000000000100000001000
              000000000000000080000080000000808000800000008000800080800000C0C0
              C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
              FF007000077777777777770AA007777777777770AAA007777777777702AAA000
              777777777022AAAA00077777770222AAAAA077777022AAAA0007777702AAA000
              77777770AAA007777777770AA007777777777000077777777777}
            Visible = False
          end
        end
        object PanelTop: TPanel
          Left = 0
          Top = 0
          Width = 967
          Height = 41
          Align = alTop
          TabOrder = 1
          OnMouseMove = FormMouseMove
          object PanelRuler1: TPanel
            Left = 1
            Top = 22
            Width = 965
            Height = 18
            Align = alBottom
            BevelOuter = bvNone
            Color = clSilver
            TabOrder = 0
            object Ruler1: TImage
              Left = 18
              Top = 0
              Width = 947
              Height = 18
              Hint = 
                'The X-axis runs horizontally with moving left to right being pos' +
                'itive'
              Align = alClient
              OnMouseDown = MapCanvasMouseDown
              OnMouseMove = FormMouseMove
              OnMouseUp = MapCanvasMouseUp
              ExplicitWidth = 955
            end
            object Ruler1Pointer: TImage
              Left = 23
              Top = 2
              Width = 11
              Height = 16
              Picture.Data = {
                07544269746D6170EE000000424DEE0000000000000076000000280000000B00
                00000F0000000100040000000000780000000000000000000000100000001000
                000000000000000080000080000000808000800000008000800080800000C0C0
                C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
                FF00777770777770000077770207777000007777020777700000777702077770
                0000777022207770000077702220777000007770202077700000770220220770
                0000770200020770000070220002207000007020070020700000022077702200
                0000020777770200000000777777700000000777777777000000}
              Visible = False
            end
            object Ruler1Pointer2: TImage
              Left = 38
              Top = 2
              Width = 11
              Height = 16
              Picture.Data = {
                07544269746D6170EE000000424DEE0000000000000076000000280000000B00
                00000F0000000100040000000000780000000000000000000000100000001000
                000000000000000080000080000000808000800000008000800080800000C0C0
                C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
                FF00777770777770000077770A077770000077770A077770000077770A077770
                00007770AAA0777000007770AAA0777000007770A2A077700000770AA2AA0770
                0000770A222A0770000070AA202AA070000070A20702A07000000AA07770AA00
                00000A0777770A00000000777777700000000777777777000000}
              Visible = False
            end
            object PanelBtnC2: TPanel
              Left = 0
              Top = 0
              Width = 18
              Height = 18
              Align = alLeft
              BevelOuter = bvLowered
              TabOrder = 0
              object Image3: TImage
                Left = 1
                Top = 1
                Width = 16
                Height = 16
                Hint = 
                  'The X-coordinate runs horizontally while the Y-coordinate runs v' +
                  'ertically'
                Picture.Data = {
                  07544269746D6170F6000000424DF60000000000000076000000280000001000
                  0000100000000100040000000000800000000000000000000000100000001000
                  000000000000000080000080000000808000800000008000800080800000C0C0
                  C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
                  FF00777777777777778077707777777778077770777777778077777077777778
                  0777778087777780777778070877780777777077707780777777777777780777
                  7777777777807777777777777807770777077777807777807087777807777778
                  0877778077777778087778077777778070878077777777077707077777777777
                  7777}
                OnMouseMove = FormMouseMove
              end
            end
          end
          object PanelTools: TPanel
            Left = 1
            Top = 1
            Width = 965
            Height = 21
            Align = alTop
            BevelInner = bvLowered
            BevelOuter = bvNone
            TabOrder = 1
            OnMouseMove = FormMouseMove
            object PanelPosition: TPanel
              Left = 886
              Top = 1
              Width = 78
              Height = 19
              Align = alRight
              BevelOuter = bvNone
              TabOrder = 0
              object Bevel7: TBevel
                Left = 0
                Top = -1
                Width = 6
                Height = 20
                Shape = bsLeftLine
                Style = bsRaised
              end
              object LabelPosition: TStaticText
                Left = 3
                Top = 1
                Width = 74
                Height = 18
                Hint = 'Current (x,y) coordinates of mouse pointer'
                AutoSize = False
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Arial'
                Font.Style = []
                ParentFont = False
                TabOrder = 0
                OnMouseMove = FormMouseMove
              end
            end
            object PanelCharting: TPanel
              Left = 1
              Top = 1
              Width = 346
              Height = 19
              Align = alLeft
              BevelOuter = bvNone
              TabOrder = 1
              object Bevel2: TBevel
                Left = 0
                Top = 0
                Width = 6
                Height = 20
                Shape = bsLeftLine
                Style = bsRaised
              end
              object Panel1: TPanel
                Left = 0
                Top = 0
                Width = 17
                Height = 19
                Align = alLeft
                BevelOuter = bvLowered
                TabOrder = 0
                object BtnHelp: TSpeedButton
                  Left = 0
                  Top = 0
                  Width = 16
                  Height = 19
                  Hint = 'Help!'
                  AllowAllUp = True
                  Glyph.Data = {
                    D6000000424DD60000000000000076000000280000000C0000000C0000000100
                    0400000000006000000000000000000000001000000010000000000000000000
                    8000008000000080800080000000800080008080000080808000C0C0C0000000
                    FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888778888
                    0000888880077888000088880BB07888000088880BB088880000888880077888
                    000088880BB077880000888770BB077800008800770BB0780000880B0770B078
                    0000880BB00BB08800008880BBBB088800008888000088880000}
                  ParentShowHint = False
                  ShowHint = False
                  OnClick = BtnHelpClick
                  OnMouseMove = FormMouseMove
                end
              end
              object ListMaps: TComboBox
                Left = 17
                Top = -1
                Width = 329
                Height = 22
                Style = csDropDownList
                Color = clSilver
                DropDownCount = 12
                TabOrder = 1
                TabStop = False
                OnClick = ListMapsCloseUp
                OnCloseUp = ListMapsCloseUp
                OnDropDown = ListMapsDropDown
              end
            end
          end
        end
      end
    end
  end
  object PanelStatus: TPanel
    Left = 0
    Top = 707
    Width = 1020
    Height = 19
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 1
    object LabelStatus: TStaticText
      Left = 1
      Top = 1
      Width = 4
      Height = 4
      Align = alClient
      Color = clBtnFace
      ParentColor = False
      TabOrder = 0
      Transparent = False
      OnMouseMove = FormMouseMove
    end
  end
  object MainMenu: TMainMenu
    Left = 71
    Top = 52
    object MenuMap1: TMenuItem
      Caption = '&Map'
      object MenuNewMap: TMenuItem
        Caption = '&New Map Level'
        ShortCut = 16462
        OnClick = MenuNewMapClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object MenuMapProperties: TMenuItem
        Caption = 'Map Level P&roperties'
        ShortCut = 16466
        OnClick = MenuMapPropertiesClick
      end
      object MenuRenameMap: TMenuItem
        Caption = 'Ren&ame Map Level'
        OnClick = MenuRenameMapClick
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object MenuPrint: TMenuItem
        Caption = '&Print Map Level'
        ShortCut = 16464
        OnClick = BtnPrintClick
      end
      object SetPrinterDPI1: TMenuItem
        Caption = 'Se&t Printer DPI'
        OnClick = SetPrinterDPI1Click
      end
      object SaveBitmapImageofMap1: TMenuItem
        Caption = 'Save Bitmap Ima&ge of Map'
        ShortCut = 16457
        OnClick = SaveBitmapImageofMap1Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object ClearMapLevel1: TMenuItem
        Tag = 1
        Caption = 'C&lear Current Map Level'
        OnClick = MenuDeleteMapClick
      end
      object MenuDeleteMap: TMenuItem
        Caption = '&Delete Current Map Level'
        OnClick = MenuDeleteMapClick
      end
      object MenuBatchDelete: TMenuItem
        Caption = '&Batch Delete/Clear Map Levels'
        OnClick = MenuBatchDeleteClick
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object MenuImport: TMenuItem
        Caption = '&Import Map Level(s)'
        Enabled = False
        OnClick = MenuImportClick
      end
      object MenuExport: TMenuItem
        Caption = '&Export Current Map Level'
        OnClick = MenuExportClick
      end
      object MenuBatchExport: TMenuItem
        Caption = 'Batch E&xport All Map Levels'
        OnClick = MenuBatchExportClick
      end
      object N18: TMenuItem
        Caption = '-'
      end
      object MenuClose: TMenuItem
        Caption = '&Close Cartographer'
        ShortCut = 16499
        OnClick = MenuExitClick
      end
    end
    object MenuEdit1: TMenuItem
      Caption = '&Edit'
      object MenuEdit: TMenuItem
        Caption = 'Toggle Map Mouse &Editing (on/off)'
        ShortCut = 16453
        OnClick = MenuEditClick
      end
      object N27: TMenuItem
        Caption = '-'
      end
      object MenuDefault: TMenuItem
        Caption = 'Set Current Map Level as &Default'
        ShortCut = 16452
        OnClick = MenuDefaultClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object MenuFont: TMenuItem
        Caption = 'Set Room Label &Font'
        ShortCut = 16454
        OnClick = BtnFontClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object MenuHighlight: TMenuItem
        Caption = 'Hi&ghlight Stubbed Rooms'
        ShortCut = 16455
        OnClick = MenuHighlightClick
      end
      object MenuCompleteStubs: TMenuItem
        Caption = 'Auto-&Complete Exit Stubs'
        OnClick = MenuCompleteStubsClick
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object MenuLineAttic: TMenuItem
        Tag = -1
        Caption = 'Line-up &Attic Level'
        Hint = 'attic'
        OnClick = MenuLineAtticClick
      end
      object MenuLineBasement: TMenuItem
        Tag = 1
        Caption = 'Line-up &Basement Level'
        Hint = 'basement'
        OnClick = MenuLineAtticClick
      end
      object N25: TMenuItem
        Caption = '-'
      end
      object MenuUndo: TMenuItem
        Caption = '&Undo Last Action'
        Enabled = False
        ShortCut = 16474
        OnClick = BtnUndoClick
      end
      object N28: TMenuItem
        Caption = '-'
      end
      object MenuFindText: TMenuItem
        Caption = 'Find Te&xt in Room Labels/Memos'
        OnClick = MenuFindTextClick
      end
    end
    object View1: TMenuItem
      Caption = '&View'
      object MenuUp: TMenuItem
        Tag = 1
        Caption = 'Move View &North'
        ShortCut = 16422
        OnClick = MenuUpClick
      end
      object MenuRight: TMenuItem
        Tag = 2
        Caption = 'Move View &East'
        ShortCut = 16423
        OnClick = MenuUpClick
      end
      object MenuDown: TMenuItem
        Tag = 3
        Caption = 'Move View &South'
        ShortCut = 16424
        OnClick = MenuUpClick
      end
      object MenuLeft: TMenuItem
        Tag = 4
        Caption = 'Move View &West'
        ShortCut = 16421
        OnClick = MenuUpClick
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object MenuZoomIn: TMenuItem
        Tag = 1
        Caption = 'Zoom &In'
        ShortCut = 49190
        OnClick = MenuZoomInClick
      end
      object MenuZoomOut: TMenuItem
        Tag = 2
        Caption = 'Zoom &Out'
        ShortCut = 49192
        OnClick = MenuZoomInClick
      end
      object N26: TMenuItem
        Caption = '-'
      end
      object MenuViewAttic: TMenuItem
        Tag = -1
        Caption = 'View &Attic'
        Enabled = False
        ShortCut = 16449
        OnClick = MenuBasementClick
      end
      object MenuViewBasement: TMenuItem
        Tag = 1
        Caption = 'View &Basement'
        Enabled = False
        ShortCut = 16450
        OnClick = MenuBasementClick
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object MenuHome: TMenuItem
        Caption = 'Move to &Home Position'
        ShortCut = 16456
        OnClick = BtnCClick
      end
      object MenuSetHome: TMenuItem
        Caption = 'Se&t Home Position'
        OnClick = BtnSetHomeClick
      end
      object N20: TMenuItem
        Caption = '-'
      end
      object MenuZero: TMenuItem
        Caption = '&Zero-in on Current Location'
        ShortCut = 16460
        OnClick = MenuZeroClick
      end
    end
    object MenuOptions1: TMenuItem
      Caption = '&Options'
      object SSpeed: TMenuItem
        Tag = 8
        Caption = 'S&peed Editing (on/off)'
        OnClick = SGridClick
      end
      object SGrid: TMenuItem
        Tag = 1
        Caption = 'Show &Grid Lines (on/off)'
        OnClick = SGridClick
      end
      object SLabels: TMenuItem
        Tag = 2
        Caption = 'Show Room &Labels (on/off)'
        OnClick = SGridClick
      end
      object STags: TMenuItem
        Tag = 3
        Caption = 'Show Room &Tags (on/off)'
        OnClick = SGridClick
      end
      object SStubs: TMenuItem
        Tag = 5
        Caption = 'Show Room &Exit Stubs (on/off)'
        OnClick = SGridClick
      end
      object SLL: TMenuItem
        Tag = 7
        Caption = 'Show Soli&d Labels (on/off)'
        OnClick = SGridClick
      end
      object SAttic: TMenuItem
        Tag = 9
        Caption = 'Show &Attic (on/off)'
        OnClick = SGridClick
      end
      object SBasement: TMenuItem
        Tag = 8
        Caption = 'Show &Basement (on/off)'
        OnClick = SGridClick
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object MenuTurnOnAll: TMenuItem
        Caption = 'Turn All Options O&n...'
        object MenuTurnAllOn: TMenuItem
          Tag = 1
          Caption = '&Grid Lines'
          OnClick = MenuTurnAllOnClick
        end
        object RoomLabels1: TMenuItem
          Tag = 2
          Caption = 'Room &Labels'
          OnClick = MenuTurnAllOnClick
        end
        object RoomTags1: TMenuItem
          Tag = 3
          Caption = 'Room T&ags'
          OnClick = MenuTurnAllOnClick
        end
        object ExitStubs1: TMenuItem
          Tag = 5
          Caption = 'Exit Stu&bs'
          OnClick = MenuTurnAllOnClick
        end
        object LinksLabels1: TMenuItem
          Tag = 7
          Caption = 'Soli&d Labels'
          OnClick = MenuTurnAllOnClick
        end
        object SpeedEdit1: TMenuItem
          Tag = 8
          Caption = '&Speed Edit'
          OnClick = MenuTurnAllOnClick
        end
        object ShowAttic1: TMenuItem
          Tag = 10
          Caption = 'Show &Attic'
          OnClick = MenuTurnAllOnClick
        end
        object ShowBasement2: TMenuItem
          Tag = 9
          Caption = 'Show &Basement'
          OnClick = MenuTurnAllOnClick
        end
      end
      object MenuTurnOffAll: TMenuItem
        Caption = 'Turn All Options &Off...'
        object MenuTurnAllOff: TMenuItem
          Tag = 101
          Caption = '&Grid Lines'
          OnClick = MenuTurnAllOnClick
        end
        object RoomLabels2: TMenuItem
          Tag = 102
          Caption = 'Room &Labels'
          OnClick = MenuTurnAllOnClick
        end
        object RoomTags2: TMenuItem
          Tag = 103
          Caption = 'Room T&ags'
          OnClick = MenuTurnAllOnClick
        end
        object ExitStubs2: TMenuItem
          Tag = 105
          Caption = 'Exit Stu&bs'
          OnClick = MenuTurnAllOnClick
        end
        object LinkksLabels1: TMenuItem
          Tag = 107
          Caption = 'Soli&d Labels'
          OnClick = MenuTurnAllOnClick
        end
        object SpeedEdit2: TMenuItem
          Tag = 108
          Caption = '&Speed Edit'
          OnClick = MenuTurnAllOnClick
        end
        object ShowAttic2: TMenuItem
          Tag = 110
          Caption = 'Show &Attic'
          OnClick = MenuTurnAllOnClick
        end
        object ShowBasement1: TMenuItem
          Tag = 109
          Caption = 'Show &Basement'
          OnClick = MenuTurnAllOnClick
        end
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object MenuStayOnTop: TMenuItem
        Caption = '&Keep Cartographer on Top'
        OnClick = MenuStayOnTopClick
      end
    end
    object Charting1: TMenuItem
      Caption = '&Charting'
      object MenuSpeedChart: TMenuItem
        Tag = 1
        Caption = '&Speed Charting (on/off)'
        OnClick = MenuSpeedChartClick
      end
      object MenuTextChart: TMenuItem
        Tag = 2
        Caption = 'Show Charting &Messages (on/off)'
        OnClick = MenuSpeedChartClick
      end
      object MenuFreeChart: TMenuItem
        Tag = 3
        Caption = '&Free Charting (on/off)'
        OnClick = MenuSpeedChartClick
      end
      object MenuCenterChart: TMenuItem
        Tag = 4
        Caption = '&Keep Map Centered on Current Location (on/off)'
        OnClick = MenuSpeedChartClick
      end
      object N21: TMenuItem
        Caption = '-'
      end
      object MenuParameters: TMenuItem
        Caption = 'Setup &Charting Parameters'
        ShortCut = 16451
        OnClick = MenuParametersClick
      end
    end
    object Sprint1: TMenuItem
      Caption = '&Sprinting'
      object MenuExecuteSprint: TMenuItem
        Caption = '&Sprint to a Room'
        OnClick = BtnSprintClick
      end
      object N29: TMenuItem
        Caption = '-'
      end
      object MenuCopySprint: TMenuItem
        Tag = 1
        Caption = '&Copy Sprint Results to Alias or Macro'
        OnClick = BtnSprintClick
      end
    end
    object MenuSelection: TMenuItem
      Caption = 'Sele&ction'
      Enabled = False
      object MenuDeselectLast: TMenuItem
        Caption = '&Deselect Last Room'
        ShortCut = 8
        OnClick = MenuDeselectLastClick
      end
      object MenuClearSelections: TMenuItem
        Caption = '&Clear Room Selection(s)'
        ShortCut = 16473
        OnClick = MenuClearSelectionsClick
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object NN1: TMenuItem
        Tag = 8
        Caption = 'Move Selected Room(s) &North'
        ShortCut = 38
        OnClick = NN1Click
      end
      object EE1: TMenuItem
        Tag = 6
        Caption = 'Move Selected Room(s) &East'
        ShortCut = 39
        OnClick = NN1Click
      end
      object SS1m: TMenuItem
        Tag = 2
        Caption = 'Move Selected Room(s) &South'
        ShortCut = 40
        OnClick = NN1Click
      end
      object WW1: TMenuItem
        Tag = 4
        Caption = 'Move Selected Room(s) &West'
        ShortCut = 37
        OnClick = NN1Click
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object MenuSelectionProperties: TMenuItem
        Caption = 'Change &Properties of Selected Room(s)'
        OnClick = MenuSelectionPropertiesClick
      end
    end
    object MenuHelp1: TMenuItem
      Caption = '&Help'
      object MenuHelp: TMenuItem
        Caption = 'Cartographer &Help'
        ShortCut = 112
        OnClick = BtnHelpClick
      end
    end
    object MenuInvisible: TMenuItem
      Caption = 'Invisible'
      Visible = False
      object MenuEscape: TMenuItem
        Caption = 'Escape'
        ShortCut = 27
        OnClick = MenuEscapeClick
      end
      object MenuPanic: TMenuItem
        Caption = 'Panic'
        ShortCut = 8219
        OnClick = MenuPanicClick
      end
      object MenuCtrlTab: TMenuItem
        Caption = 'Ctrl+Tab'
        ShortCut = 16393
        OnClick = MenuCtrlTabClick
      end
      object MenuCtrlTab2: TMenuItem
        Tag = 1
        Caption = 'Ctrl+Tab2'
        ShortCut = 24585
        OnClick = MenuCtrlTabClick
      end
      object MenuAutotyper: TMenuItem
        Tag = 999
        Caption = 'Autotyper'
        ShortCut = 16397
        OnClick = MenuAutotyperClick
      end
      object MenuChat: TMenuItem
        Tag = 1
        Caption = 'Chat'
        ShortCut = 24643
        OnClick = MenuAutotyperClick
      end
      object MenuTell: TMenuItem
        Tag = 2
        Caption = 'Tell'
        ShortCut = 24660
        OnClick = MenuAutotyperClick
      end
      object MenuImagery: TMenuItem
        Tag = 5
        Caption = 'Imagery'
        ShortCut = 24649
        OnClick = MenuAutotyperClick
      end
      object MenuFiltered: TMenuItem
        Tag = 7
        Caption = 'Filtered'
        ShortCut = 24644
        OnClick = MenuAutotyperClick
      end
      object Canvas1: TMenuItem
        Caption = 'Canvas'
        ShortCut = 24654
        OnClick = MenuAutotyperClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object MenuUp5: TMenuItem
        Tag = 5
        Caption = 'Up5'
        ShortCut = 24614
        OnClick = MenuUpClick
      end
      object MenuRight5: TMenuItem
        Tag = 6
        Caption = 'Right5'
        ShortCut = 24615
        OnClick = MenuUpClick
      end
      object MenuDown5: TMenuItem
        Tag = 7
        Caption = 'Down5'
        ShortCut = 24616
        OnClick = MenuUpClick
      end
      object MenuLeft5: TMenuItem
        Tag = 8
        Caption = 'Left5'
        ShortCut = 24613
        OnClick = MenuUpClick
      end
      object MenuProperties: TMenuItem
        Tag = 2
        Caption = 'Properties'
        ShortCut = 113
        OnClick = MenuPropertiesClick
      end
      object MenuSetLocation: TMenuItem
        Tag = 3
        Caption = 'SetLocation'
        ShortCut = 114
        OnClick = MenuPropertiesClick
      end
      object MenuSprint: TMenuItem
        Tag = 4
        Caption = 'Sprint'
        ShortCut = 115
        OnClick = MenuPropertiesClick
      end
      object MenuDelete: TMenuItem
        Tag = 666
        Caption = 'Delete'
        ShortCut = 46
        OnClick = MenuPropertiesClick
      end
      object MenuDelete2: TMenuItem
        Tag = 667
        Caption = 'Delete Full'
        ShortCut = 16430
        OnClick = MenuPropertiesClick
      end
      object MenuSelectRoom: TMenuItem
        Tag = 12
        Caption = 'Select Room'
        ShortCut = 123
        OnClick = MenuPropertiesClick
      end
    end
  end
  object PopupMenu: TPopupMenu
    OnPopup = PopupMenuPopup
    Left = 71
    Top = 84
    object PopupProperties: TMenuItem
      Caption = 'Room &Properties'
      OnClick = PopupPropertiesClick
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object PopupSetLocation: TMenuItem
      Caption = '&Set Position as &Current Location'
      OnClick = PopupSetLocationClick
    end
    object PopupSprint: TMenuItem
      Caption = '&Sprint to a Room'
      OnClick = PopupSprintClick
    end
    object PopupCopySprint: TMenuItem
      Caption = 'Cop&y Sprint Results into Alias or Macro'
      OnClick = PopupCopySprintClick
    end
    object PopupSelect: TMenuItem
      Caption = 'Se&lect/Deselect Room  [F12]'
      OnClick = PopupSelectClick
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object PopupDelete: TMenuItem
      Tag = 666
      Caption = '&Delete Room'
      OnClick = PopupDeleteClick
    end
    object PopupDelete2: TMenuItem
      Tag = 667
      Caption = 'Delete Room and &Exits'
      OnClick = PopupDeleteClick
    end
    object N10: TMenuItem
      Caption = '-'
    end
    object N22: TMenuItem
      Caption = '&Map Level Properties'
      OnClick = MenuMapPropertiesClick
    end
    object N24: TMenuItem
      Caption = '-'
    end
    object MenuBasement: TMenuItem
      Tag = 1
      Caption = 'Switch to Map Level &Basement'
      Hint = 'basement'
      OnClick = MenuBasementClick
    end
    object MenuAttic: TMenuItem
      Tag = -1
      Caption = 'Switch to Map Level &Attic'
      Hint = 'attic'
      OnClick = MenuBasementClick
    end
    object N23: TMenuItem
      Caption = '-'
    end
    object PopupStayOnTop: TMenuItem
      Tag = 1
      Caption = '&Keep Cartographer on Top'
      OnClick = MenuStayOnTopClick
    end
  end
  object DialogPrint: TPrintDialog
    Left = 71
    Top = 148
  end
  object DialogSave: TSaveDialog
    DefaultExt = '.tkm'
    Filter = 'Cartographer Maps (*.tkm)|*.tkm'
    InitialDir = 'files'
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Title = 'Export Cartographer Map'
    Left = 71
    Top = 211
  end
  object DialogOpen: TOpenDialog
    Filter = 'Cartographer Maps (*.tkm)|*.tkm'
    InitialDir = 'files'
    Options = [ofReadOnly, ofHideReadOnly, ofAllowMultiSelect, ofFileMustExist]
    Title = 'Import Cartographer Map'
    Left = 71
    Top = 179
  end
  object TimerActivating: TTimer
    Enabled = False
    Interval = 100
    OnTimer = TimerActivatingTimer
    Left = 71
    Top = 244
  end
  object DialogFont: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = []
    Left = 71
    Top = 376
  end
  object TimerHighlightStubs: TTimer
    Enabled = False
    OnTimer = TimerHighlightStubsTimer
    Left = 71
    Top = 276
  end
  object TimerCountdown: TTimer
    Enabled = False
    OnTimer = TimerCountdownTimer
    Left = 71
    Top = 308
  end
  object DialogSave2: TSaveDialog
    DefaultExt = '.bmp'
    Filter = 'Bitmap Images (*.bmp)|*..bmp'
    InitialDir = 'files'
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Title = 'Save Bitmap Image'
    Left = 103
    Top = 211
  end
  object dsCurrentMap: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 464
    Top = 328
  end
end
